Option Public
Sub Initialize
	Dim session As New Notessession
	Dim db As Notesdatabase
	Set db = session.Currentdatabase
	Call db.sign(DBSIGN_DOC_ALL)
End Sub